home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-1 / Inter.Net 55-1.iso / CBuilder / Setup / BCB / data.z / testapp.cpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-02-09  |  1018 b   |  28 lines
  1. //----------------------------------------------------------------------------
  2. //Borland C++Builder
  3. //Copyright (c) 1987, 1998 Borland International Inc. All Rights Reserved.
  4. //----------------------------------------------------------------------------
  5. //---------------------------------------------------------------------------
  6. #include <vcl.h>
  7. #pragma hdrstop
  8. USEFILE("readme.txt");
  9. USERES("testapp.res");
  10. USEFORM("maintest.cpp", Form2);
  11. USEUNIT("srvr_TLB.cpp");
  12. //---------------------------------------------------------------------------
  13. WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
  14. {
  15.         try
  16.         {
  17.                  Application->Initialize();
  18.                  Application->CreateForm(__classid(TForm2), &Form2);
  19.                  Application->Run();
  20.         }
  21.         catch (Exception &exception)
  22.         {
  23.                  Application->ShowException(&exception);
  24.         }
  25.         return 0;
  26. }
  27. //---------------------------------------------------------------------------
  28.